﻿Imports extranet.BE
Imports extranet.DA

Public Class BCRecado

  Public Shared Sub Cadastrar(ByVal objBERecado As BERecado)
    Dim objDARecado As New DARecado
    objDARecado.Cadastra(objBERecado)
  End Sub

  Public Shared Sub Atualizar(ByVal objBERecado As BERecado)
    Dim objDARecado As New DARecado
    objDARecado.Atualiza(objBERecado)
  End Sub

  Public Shared Sub Excluir(ByVal objBERecado As BERecado)
    Dim objDARecado As New DARecado
    objDARecado.Exclui(objBERecado)
  End Sub

  Public Shared Function Selecionar(ByVal strDestinatario As String) As List(Of BERecado)
    Dim objDARecado As New DARecado(booCondicaoSimilar:=False)
    Dim objDAUsuario As New DAUsuario(booCondicaoSimilar:=False)
    objDARecado.objQuery.Sort.AdicionarCondicaoOrderBy("id_recado", "DESC")
    Dim objBERecados As IList(Of BERecado) = objDARecado.Seleciona(New BERecado(Nothing, Nothing, strDestinatario, Nothing, Nothing))
    For Each objBERecado As BERecado In objBERecados
      objDAUsuario.objQuery.Where.Where = ""
      objBERecado.Remetente = objDAUsuario.SelecionaUsuario(New BEUsuario(objBERecado.Remetente.Usuario, ""))
      objDAUsuario.objQuery.Where.Where = ""
      objBERecado.Destinatario = objDAUsuario.SelecionaUsuario(New BEUsuario(objBERecado.Destinatario.Usuario, ""))
    Next
    Return objBERecados
  End Function

End Class
